home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / INDEX.DIR / 00058_Script_58 < prev    next >
Text File  |  1999-03-07  |  2KB  |  100 lines
  1. on openWindow
  2.   global gMouseLock, gMouseLatency
  3.   put 60 into gMouseLatency
  4.   put 1 into gMouseLock
  5. end
  6.  
  7. on MainRollover
  8.   global gCGSelected
  9.   put 11 into n
  10.   repeat while n < 20
  11.     if n = gCGSelected then
  12.       put n+10 into CN
  13.       set the member of sprite n to member CN
  14.     else
  15.       if rollover(n) then 
  16.         put N into CN
  17.         set the member of sprite n to member CN
  18.       else
  19.         put N - 10 into CN
  20.         set the member of sprite n to member CN
  21.       end if
  22.     end if
  23.     put n+ 1 into n
  24.   end repeat
  25. end
  26.  
  27. on CursorChange
  28.   --newCursor
  29.   nothing
  30. end
  31.  
  32. on KeyUp
  33.   if the controlDown then
  34.     if the keyCode = 46 then
  35.       Tell the stage to LaunchMilestone
  36.     end if
  37.     if the keyCode = 1 then
  38.       Tell the stage to LaunchSmall
  39.     end if
  40.   end if
  41.   PASS
  42. end
  43.  
  44. on closeWindow
  45.   global gCGIndex
  46.   set gCGIndex = 0
  47. end
  48.  
  49. on changeColor var
  50.   put the foreColor of line 1 of member "blueColor" into REALBLUE
  51.   
  52.   --put each sublist into a variable
  53.   put 1 into n 
  54.   repeat while n < 10
  55.     put "sublist"&n into checkMe
  56.     put the text of member checkMe into ListVar
  57.     put the lineCount of member checkMe into theLineCount
  58.     put 1 into x 
  59.     repeat while x <= theLineCount
  60.       if line x of ListVar = var then
  61.         set the foreColor of line x of member checkMe = REALBLUE
  62.       end if
  63.       put x + 1 into x
  64.     end repeat
  65.     put n+ 1 into n
  66.   end repeat
  67. end
  68.  
  69.  
  70. on TurnBlack var
  71.   
  72.   put the foreColor of line 1 of member "NormalColor" into REALBLACK
  73.   
  74.   --put each sublist into a variable
  75.   put 1 into n 
  76.   repeat while n < 10
  77.     put "sublist"&n into checkMe
  78.     put the text of member checkMe into ListVar
  79.     put the lineCount of member checkMe into theLineCount
  80.     put 1 into x 
  81.     repeat while x <= theLineCount
  82.       if line x of ListVar = var then
  83.         set the foreColor of line x of member checkMe = REALBLACK
  84.       end if
  85.       put x + 1 into x
  86.     end repeat
  87.     put n+ 1 into n
  88.   end repeat
  89. end
  90.  
  91.  
  92.  
  93.  
  94. --check each line of the variable for VAR
  95. --if that line contains the variable, then change it to blue
  96. --put the variable back into the 2 sublist text members.
  97.  
  98.  
  99.  
  100.